home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / ftransapiv / arexx / ftransaweb.awebrx < prev    next >
Text File  |  1999-06-14  |  3KB  |  116 lines
  1. /* 
  2.  ----------------------------------------
  3.  Aweb Translator By FTranslator Client  
  4.  
  5.  Script by Cristian Robert Gallas
  6.  
  7.  Tested with AWeb 3.2
  8.  Usage:                                 
  9.  Use in ARexx interface of Aweb         
  10.  $VER: FTransAWEB.awebrx v1.0 (01.05.99)
  11.  ----------------------------------------
  12.  
  13.  HISTORY
  14.  ----------------------------------------
  15.  v0.01b [12.08.98] - First public beta version.
  16.  v1.0   [01.05.99] - Added new features.
  17.  ----------------------------------------
  18.  
  19.  [Steps installation]
  20.  
  21.  > Copy FTransAWEB.awebrx to AWEB3:Plugins/
  22.  > Go to AWeb/Settings/GUI Setting
  23.  > Select folder AREXX
  24.  > Click in ADD
  25.  > Title    -> [Port->Eng] (Example: Portuguese to English)
  26.  > Shortcut -> Choice
  27.  > Macro    -> AWeb3:Plugins/FTransAWEB.awebrx 3 (3 is a translation direction)
  28.  > Select text for translation
  29.  > Go to AREXX Menu and select [Port->Eng]
  30.  > Wait for windows with translation :)
  31.  
  32.  0 - English   to Francais
  33.  1 - English   to Deutsch
  34.  2 - English   to Italiano
  35.  3 - English   to Portugues
  36.  4 - English   to Espanol
  37.  5 - Francais  to English
  38.  6 - Deutsch   to English
  39.  7 - Italiano  to English
  40.  8 - Espanol   to English
  41.  9 - Portugues to English
  42.  
  43. */
  44.  
  45. Options Results
  46.  
  47. tmpfile = 'Ram:FTransTmp.AWEB'
  48. tmpclip = 'Ram:FTransAWeb.Clip'
  49. sel = ''
  50.  
  51. ARG traduz
  52.  
  53. /* TESTA SE PODE SER USADAS AS LIBS DO AREXX */
  54. if ~show(l, "rexxsupport.library") then
  55.     if ~addlib("rexxsupport.library", 0, -30) then
  56.   exit
  57.  
  58. /* TESTA SE O PROGRAMA JA NAO ESTA COM A PORTA DE TRADUCAO ABERTA */
  59. if exists(tmpfile) then do
  60.   janela('"FTranslation port is open! Translation in progress, wait..." "_Ok"')
  61.   exit
  62. end
  63.  
  64. /* COLOCA COMO DEFAULT PORTUGUES TO ENGLISH */
  65. if traduz = "" then do
  66.   traduz = requestaweb('"Select your translate direction:*N 1) English   to Francais*N 2) English   to Deutsch*N 3) English   to Italiano*N 4) English   to Portugues*N 5) English   to Espanol*N 6) Francais  to English*N 7) Deutsch   to English*N 8) Italiano  to English*N 9) Espanol   to English*N10) Portugues to English" "1|2|3|4|5|6|7|8|9|10|Quit"')
  67.   if(traduz = 0) then
  68.     exit
  69.   traduz = traduz - 1
  70. end
  71.  
  72. /* PEGA O CONTEUDO MARCADO E RETIRA OS ENTERS */
  73. 'get selection var sel'
  74.  
  75. /* TESTA SE FOI MARCADO O TEXTO */
  76. if sel = '' then do
  77.   janela('"You need select text first..." "_Ok"')
  78.   exit
  79. end
  80.  
  81. /* SALVA CONTEUDO MARCADO NO ARQUIVO TEMPORARIO */
  82. call open(1, tmpclip, 'W')
  83. call writeln(1, sel)
  84. call close(1)
  85.  
  86. /* EXECUTA O FTRANSLATOR COM OS ARGUMENTOS DA TRADUCAO */
  87. comando = 'C:FTranslator FILE 'traduz' "'tmpclip'" SILENCE > 'tmpfile
  88. Address Command comando
  89. delete(tmpclip)
  90.  
  91. goodopen=open(1, tmpfile, 'R')
  92. linein = ''
  93. if goodopen then do
  94.   do until eof(1)
  95.     linein = linein'*N 'readln(1)
  96.   end
  97. end
  98. close(1)
  99.  
  100. delete(tmpfile)
  101.  
  102. janela('" 'linein' " "_Ok"')
  103. exit
  104.  
  105. janela:
  106.   parse arg reqchd
  107.   Request '"Freedom Translator"' reqchd
  108.   reqchd=result
  109. return(reqchd)
  110.  
  111. requestaweb:
  112.   parse arg reqchd
  113.   Request '"Freedom Translator"' reqchd
  114.   reqchd=result
  115. return(reqchd)
  116.